home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Delphi3 / install / data.z / DBLOGDLG.INT < prev    next >
Encoding:
Text File  |  1997-08-05  |  1.0 KB  |  38 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Visual Component Library                 }
  5. {                                                       }
  6. {       Copyright (c) 1995,97 Borland International     }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit DBLogDlg;
  11.  
  12. {$P+}
  13.  
  14. interface
  15.  
  16. uses SysUtils, Windows, Messages, Classes, Graphics, Controls,
  17.   Forms, StdCtrls, ExtCtrls;
  18.  
  19. type
  20.   TLoginDialog = class(TForm)
  21.     Panel: TPanel;
  22.     Bevel: TBevel;
  23.     DatabaseName: TLabel;
  24.     UserName: TEdit;
  25.     Password: TEdit;
  26.     OKButton: TButton;
  27.     CancelButton: TButton;
  28.     procedure FormShow(Sender: TObject);
  29.   end;
  30.  
  31. function LoginDialog(const ADatabaseName: string;
  32.   var AUserName, APassword: string): Boolean;
  33.  
  34. function LoginDialogEx(const ADatabaseName: string;
  35.   var AUserName, APassword: string; NameReadOnly: Boolean): Boolean;
  36.  
  37. implementation
  38.